function [ red1Cruce, red2Cruce ] = cruceuniforme ( red1, red2 )
%Metodo de crossover "Cruce uniforme parametrizado"
%Se elige un locus al azar y luego un segmento hacia la derecha de longitud
%l.

    p = 0.7; %Esta probabilidad es fija (Segun lo que dijeron nacho y daniel)
    
    c = cols(red1);
    
    red1Cruce = zeros(1,c);
    red2Cruce = zeros(1,c);
    
    for i=1:c
        r = rand(1);
        if r<p   %intercambio
            red1Cruce(i) = red2(i);
            red2Cruce(i) = red1(i);
        else     %dejo como esta
            red1Cruce(i) = red1(i);
            red2Cruce(i) = red2(i);
        end
    end
end

